home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 41
/
Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso
/
Aminet
/
util
/
sys
/
InstallerNG.lha
/
InstallerNG
/
examples
/
iconpos.installer
< prev
next >
Wrap
Text File
|
2000-10-02
|
1KB
|
61 lines
(user EXPERT)
(trace)
; ask the user for the icon to be moved
(set #theicon (askfile (prompt "Please select the icon to be modified")
(help "")
(default "sys:")
)
)
(set #theicon (substr #theicon 0 (- (strlen #theicon) 5)))
; examine the icon
(iconinfo (dest #theicon)
(getposition "#theicon_X" "#theicon_Y")
)
; change the values
(swing
(set #theicon_newX (asknumber (prompt "Change X value")
(help "")
(default #theicon_X)
)
)
(set #theicon_newY (asknumber (prompt "Change Y value")
(help "")
(default #theicon_Y)
)
)
(message "Sure to move the icon\n'" #theicon "'\nfrom\n\n"
#theicon_X "," #theicon_Y "\n\n"
"to\n\n"
#theicon_newX "," #theicon_newY
)
)
(tooltype (dest #theicon)
(setposition #theicon_newX #theicon_newY)
)
; some more modifications?
(if (askbool (prompt "Do you need to modify one more Icon?")
(help "")
(choices "Yes, immediately" "Nope, quit")
)
; then
(
(trace)
(retrace)
)
)
; quiet exit
(exit (quiet))
(welcome)